home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mp3pla2a / seek.frm < prev    next >
Text File  |  1999-01-20  |  15KB  |  448 lines
  1. VERSION 5.00
  2. Begin VB.Form WinSeek 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Buscador de Mp3"
  6.    ClientHeight    =   4050
  7.    ClientLeft      =   6780
  8.    ClientTop       =   1140
  9.    ClientWidth     =   6105
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H00000080&
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   4050
  23.    ScaleWidth      =   6105
  24.    ShowInTaskbar   =   0   'False
  25.    Begin VB.PictureBox Picture3 
  26.       BackColor       =   &H00000000&
  27.       Height          =   3870
  28.       Left            =   30
  29.       ScaleHeight     =   3810
  30.       ScaleWidth      =   5955
  31.       TabIndex        =   0
  32.       Top             =   75
  33.       Width           =   6015
  34.       Begin VB.PictureBox Picture1 
  35.          BackColor       =   &H00000000&
  36.          BorderStyle     =   0  'None
  37.          Height          =   3060
  38.          Left            =   30
  39.          ScaleHeight     =   3060
  40.          ScaleWidth      =   5865
  41.          TabIndex        =   5
  42.          Top             =   60
  43.          Width           =   5865
  44.          Begin VB.TextBox txtSearchSpec 
  45.             BackColor       =   &H00000000&
  46.             ForeColor       =   &H00FFFFFF&
  47.             Height          =   285
  48.             Left            =   3450
  49.             TabIndex        =   9
  50.             Text            =   "*.mp?"
  51.             Top             =   90
  52.             Width           =   2415
  53.          End
  54.          Begin VB.FileListBox filList 
  55.             BackColor       =   &H00000000&
  56.             ForeColor       =   &H0000FF00&
  57.             Height          =   2430
  58.             Left            =   120
  59.             MultiSelect     =   2  'Extended
  60.             Pattern         =   "*.mp3"
  61.             TabIndex        =   8
  62.             Top             =   480
  63.             Width           =   3225
  64.          End
  65.          Begin VB.DirListBox dirList 
  66.             BackColor       =   &H00000000&
  67.             ForeColor       =   &H0000FFFF&
  68.             Height          =   1890
  69.             Left            =   3420
  70.             TabIndex        =   7
  71.             Top             =   975
  72.             Width           =   2415
  73.          End
  74.          Begin VB.DriveListBox drvList 
  75.             BackColor       =   &H00000000&
  76.             ForeColor       =   &H00FFFFFF&
  77.             Height          =   315
  78.             Left            =   3435
  79.             TabIndex        =   6
  80.             Top             =   495
  81.             Width           =   2415
  82.          End
  83.          Begin VB.Label lblCriteria 
  84.             BackStyle       =   0  'Transparent
  85.             Caption         =   "&Criterio de b·squeda:"
  86.             ForeColor       =   &H00FFFFFF&
  87.             Height          =   255
  88.             Left            =   1365
  89.             TabIndex        =   10
  90.             Top             =   105
  91.             Width           =   1875
  92.          End
  93.       End
  94.       Begin VB.PictureBox Picture2 
  95.          BackColor       =   &H00000000&
  96.          BorderStyle     =   0  'None
  97.          Height          =   2895
  98.          Left            =   285
  99.          ScaleHeight     =   2895
  100.          ScaleWidth      =   4935
  101.          TabIndex        =   1
  102.          Top             =   0
  103.          Visible         =   0   'False
  104.          Width           =   4935
  105.          Begin VB.ListBox lstFoundFiles 
  106.             BackColor       =   &H00000000&
  107.             ForeColor       =   &H0000FF00&
  108.             Height          =   2400
  109.             Left            =   600
  110.             TabIndex        =   2
  111.             Top             =   390
  112.             Width           =   4815
  113.          End
  114.          Begin VB.Label lblfound 
  115.             BackColor       =   &H00000000&
  116.             Caption         =   "&Temas encontrados:"
  117.             ForeColor       =   &H00FFFFFF&
  118.             Height          =   255
  119.             Left            =   120
  120.             TabIndex        =   4
  121.             Top             =   120
  122.             Width           =   1935
  123.          End
  124.          Begin VB.Label lblCount 
  125.             BackColor       =   &H00000000&
  126.             Caption         =   "0"
  127.             ForeColor       =   &H00FFFFFF&
  128.             Height          =   255
  129.             Left            =   2160
  130.             TabIndex        =   3
  131.             Top             =   120
  132.             Width           =   555
  133.          End
  134.       End
  135.       Begin VB.Image boto 
  136.          Height          =   585
  137.          Index           =   0
  138.          Left            =   150
  139.          Picture         =   "seek.frx":0000
  140.          Top             =   3120
  141.          Width           =   1020
  142.       End
  143.       Begin VB.Image boto 
  144.          Height          =   570
  145.          Index           =   1
  146.          Left            =   2580
  147.          Picture         =   "seek.frx":1F56
  148.          Top             =   3105
  149.          Width           =   990
  150.       End
  151.       Begin VB.Image boto 
  152.          Height          =   570
  153.          Index           =   3
  154.          Left            =   4710
  155.          Picture         =   "seek.frx":3D48
  156.          Top             =   3105
  157.          Width           =   1005
  158.       End
  159.       Begin VB.Image boto 
  160.          Height          =   600
  161.          Index           =   2
  162.          Left            =   3615
  163.          Picture         =   "seek.frx":5BD2
  164.          Top             =   3075
  165.          Width           =   1005
  166.       End
  167.    End
  168. End
  169. Attribute VB_Name = "WinSeek"
  170. Attribute VB_GlobalNameSpace = False
  171. Attribute VB_Creatable = False
  172. Attribute VB_PredeclaredId = True
  173. Attribute VB_Exposed = False
  174. Option Explicit
  175.  
  176. Dim SearchFlag As Integer   ' Se usa como indicador para cancelar y otras operaciones.
  177. Dim mouseIsDown As Boolean
  178. Dim cx As Single
  179. Dim cy As Single
  180. Dim a
  181.  
  182.  
  183. Private Sub cmdExit_Click()
  184.  
  185. End Sub
  186.  
  187.  
  188.  
  189. Private Function DirDiver(NewPath As String, DirCount As Integer, BackUp As String) As Integer
  190. '  Busca recursivamente en directorios desde NewPath hacia abajo...
  191. '  Se busca en NewPath en este paso recursivo.
  192. '  BackUp es el origen de este paso recursivo.
  193. '  DirCount es el n·mero de subdirectorios de este directorio.
  194. Static FirstErr As Integer
  195. Dim nombre
  196. Dim nomb
  197. Dim DirsToPeek As Integer, AbandonSearch As Integer, ind As Integer
  198. Dim OldPath As String, ThePath As String, entry As String
  199. Dim retval As Integer
  200.     SearchFlag = True           ' Establece el indicador de modo que el usuario pueda interrumpir.
  201.     DirDiver = False            ' Lo establece a True si hay un error.
  202.     retval = DoEvents()         ' Comprueba si hay eventos (por ejemplo, si el usuario elige Cancelar).
  203.     If SearchFlag = False Then
  204.         DirDiver = True
  205.         Exit Function
  206.     End If
  207.     On Local Error GoTo DirDriverHandler
  208.     DirsToPeek = dirList.ListCount                  ' ┐Cußntos directorios hay debajo de Θste?
  209.     Do While DirsToPeek > 0 And SearchFlag = True
  210.         OldPath = dirList.Path                      ' Guarda la ruta de acceso anterior para el pr≤ximo paso recursivo.
  211.         dirList.Path = NewPath
  212.         If dirList.ListCount > 0 Then
  213.             ' Obtiene hasta la parte inferior del nodo.
  214.             dirList.Path = dirList.List(DirsToPeek - 1)
  215.             AbandonSearch = DirDiver((dirList.Path), DirCount%, OldPath)
  216.         End If
  217.         ' Sube un nivel en los directorios.
  218.         DirsToPeek = DirsToPeek - 1
  219.         If AbandonSearch = True Then Exit Function
  220.     Loop
  221.     ' Llama a una funci≤n para enumerar archivos.
  222.     If filList.ListCount Then
  223.         If Len(dirList.Path) <= 3 Then              ' Comprueba 2 bytes/carßcter
  224.             ThePath = dirList.Path                  ' Si estß a nivel raφz, lo deja como estß...
  225.         Else
  226.             ThePath = dirList.Path + "\"            ' De lo contrario, pone "\" delante del nombre de archivo.
  227.         End If
  228.         For